Brain.training.02

; La procedura operazioni.definisci è l' unica parte che dovete cambiare voi!!!!
; seguendo le regole implicite nell' esempio
; Versione che conserva gli sfondi, delle ore 15.45

; La procedura operazioni.definisci è l' unica parte che dovete cambiare voi!!!!
; seguendo le regole implicite nell' esempio
; Versione che conserva gli sfondi, delle ore 14.24
per operazioni.definisci
as "op1 [11 22 somma 33]
as "op2 [33 22 differenza 11]
as "op3 [48 12 somma 60]
as "op4 [2 2 somma 4]
as "op5 [10 2 divisione 5]
as "op6 [14 7 somma 21]
as "op7 [24 12 somma 36]
as "op8 [56 42 differenza 14]
as "op9 [10 20 somma 30]
as "op10 [40 30 differenza 10]
as "op11 [44 12 somma 56]
as "op12 [10 9 somma 19]
as "op13 [27 3 divisione 9]
as "op14 [56 2 divisione 28]
as "op15 [60 39 somma 99]
as "op16 [45 25 differenza 20]
as "op17 [3 3 moltiplicazione 9]
as "op18 [4 5 moltiplicazione 20]
as "op19 [30 6 divisione 5]
as "op20 [72 8 divisione 9]
as "operazioni listavuota
as "operazioni inult :op1 :operazioni
as "operazioni inult :op2 :operazioni
as "operazioni inult :op3 :operazioni
as "operazioni inult :op4 :operazioni
as "operazioni inult :op5 :operazioni
as "operazioni inult :op6 :operazioni
as "operazioni inult :op7 :operazioni
as "operazioni inult :op8 :operazioni
as "operazioni inult :op9 :operazioni
as "operazioni inult :op10 :operazioni
as "operazioni inult :op11 :operazioni
as "operazioni inult :op12 :operazioni
as "operazioni inult :op13 :operazioni
as "operazioni inult :op14 :operazioni
as "operazioni inult :op15 :operazioni
as "operazioni inult :op16 :operazioni
as "operazioni inult :op17 :operazioni
as "operazioni inult :op18 :operazioni
as "operazioni inult :op19 :operazioni
as "operazioni inult :op20 :operazioni
fine

per operazioni.esegui
as "tempo.totale 0
as "esatte 0
as "errate 0
as "nn conta :operazioni
ripeti :nn [as "n rip operazione.esegui]
fine
per operazione.definisci
as "operazione ele :n :operazioni
as "op1 ele 1 :operazione
as "op2 ele 2 :operazione
as "op ele 3 :operazione
as "risultato ele 4 :operazione
fine
per operazione.esegui
as "operazione ele :n :operazioni
operazione.definisci
operazione.presenta
operazione.valuta
fine
per operazione.presenta
sfondogrigio3
cominciaxy -280 280
tahoma 40 rosso1
scritarta (frase [Operazione numero] :n)
sotto 50
spessore 6
strisciax 380
saltax -380
tahoma 28
scritarta [Devi eseguire l' operazione indicata qui sotto]
sotto 50
verde2 scritarta :op
sotto 40
strisciax 120
strisciax -120
sotto 10
verde1 scritarta :op1
sotto 50
verde1 scritarta :op2
sotto 50
blu1
scritarta [scrivi il risultato nella casella e premi ok]
fine
per operazione.valuta
astempo 0
as "risposta leggiparola
cominciaxy -280 -130
tahoma 28
verifica uguale? :risultato :risposta
blu3
se_vero [verde1 scritarta [Esatto] as "esatte somma :esatte 1]
se_falso [rosso1 scritarta [Errato] as "errate somma :errate 1]
saltay -40
as "tempo1 quoziente tempo 1000
as "tempo.totale somma :tempo.totale :tempo1
scritarta (frase [Ci hai messo] :tempo1 "secondi)
as "sfondojpg (parola "sfondo alfa.punto nic3 :n)
sfondo.conserva.come :sfondojpg
aspetta 500
sotto 40
se minore? :n :nn [scritarta [... passiamo alla prossima!]]
tarta.primo.piano
fine

per operazioni.concludi
giallo1
tahoma 15
scritarta (frase [il tempo totale impiegato c( di] :tempo.totale "secondi)
sotto 16
scritarta (frase [risposte esatte] :esatte)
sotto 16
scritarta (frase [risposte errate] :errate)
sotto 16
as "risposte somma :errate :esatte
as "percentuale.errori prodotto 100 quoziente :errate :risposte
scritarta (frase [percentuale errori] :percentuale.errori)
nastarta
sfondo.conserva.come "sfondo.000
tarta.primo.piano
fine
ta
sfondopanna3 tahoma 48
cominciaxy -280 280 blu1
scritarta [Esercizi di Brain Training]
saltaxy -1 1 blu3
scritarta [Esercizi di Brain Training]
aspetta 2000
operazioni.definisci
operazioni.esegui
operazioni.concludi